Option Strict Off
Option Explicit On
Namespace BMLERP
	Friend Class frmregist
		Inherits System.Windows.Forms.Form
		Private Sub cmdclose_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdClose.Click
			Me.Close()
		End Sub

		Private Sub cmdReg_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdReg.Click
			If IssNo.CtlText = "" Then
				MsgBox("Enter Value in IssueNo !", MsgBoxStyle.Critical, "Warning")
				Exit Sub
			Else
				Call BBL900((OrdNo.Text))
				Adodc1.Refresh()
				IssNo.CtlText = ""
				txtBHVAN.Text = ""
			End If
		End Sub
		Private Sub frmregist_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
			Adodc1.ConnectionString = ConnectString
			Adodc1.CommandTimeout = 10
			Adodc1.CommandType = ADODB.CommandTypeEnum.adCmdText
			Adodc1.RecordSource = "SELECT BHIVN,BHVAN,BHORD from BBH  WHERE   (BHSTT = '2')"
			Adodc1.Refresh()
			IssNo.RowSource = Adodc1
		End Sub
		Private Sub IssNo_Change(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles IssNo.Change
			OrdNo.Text = IssNo.BoundText
			Dim Rst As ADODB.Recordset
			Rst = DBconn.Execute("Select BHVAN FROM BBH WHERE BHIVN='" & IssNo.BoundText & "'")
			If Not Rst.EOF Then
				txtBHVAN.Text = Rst.Fields("BHVAN").Value
			End If
		End Sub
	End Class
End Namespace